home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / misc / emu / arosdev.lha / AROS / test / filetest.c < prev    next >
C/C++ Source or Header  |  1996-10-24  |  716b  |  35 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: filetest.c,v 1.2 1996/08/01 17:41:39 digulla Exp $
  4.     $Log: filetest.c,v $
  5.     Revision 1.2  1996/08/01 17:41:39  digulla
  6.     Added standard header for all files
  7.  
  8.     Desc:
  9.     Lang:
  10. */
  11. #include <clib/exec_protos.h>
  12. #include <dos/dos.h>
  13. #include <clib/dos_protos.h>
  14. #include <stdio.h>
  15.  
  16. int main(void)
  17. {
  18.     BPTR file;
  19.     UBYTE buffer[20];
  20.     LONG r1=0,r2=0,r3=0,r4=0;
  21.  
  22.     file=Open("testfile",MODE_NEWFILE);
  23.     if(file)
  24.     {
  25.     r1=Write(file,"hello, world\n",13);
  26.     r2=Seek(file,0,OFFSET_BEGINNING);
  27.     r3=Read(file,buffer,19);
  28.     r4=Close(file);
  29.     }
  30.     if(r3>=0)
  31.     buffer[r3]=0;
  32.     printf("%ld %ld %ld %ld \'%s\'\n",r1,r2,r3,r4,buffer);
  33.     return 0;
  34. }
  35.